COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	NCHNS←2
C00003 ENDMK
C⊗;
NCHNS←2;
ARRAY DL(400); VARIABLE /DX,/Q,/INPX; INPX←0; DX←0;
ZERO(DL);
< PRINT " ZEROED ";
INSTRUMENT GLIA;
FOSCIL[10](P4,10*MAG/P2,P5);
FOSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
DX←DX+1.3; IF DX >200 THEN DX←1;
OUTA←ZDELAY(U3,20,400,DL,INPX);
OUTB←SDELAY(U3,10  ,400,DL,INPX);
END;
ARRAY F3,F10(512);SEG(F10);1 1 0 100;SEG(F3);0 1 1 7 1 90 0 100;
PLAY;GLIA 0  1 C 600 F3 F1 C*2 F10;FINISH;